home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / intuiextend16.lha / bonus / makelib / MakeLib_example2.amos / MakeLib_example2.amosSourceCode
AMOS Source Code  |  1980-01-04  |  389b  |  11 lines
  1. FILE= Extension_17_01C2("ram:file","a") : Rem Open NEW file with name ram:file 
  2.  
  3. If FILE
  4.    O= Extension_17_020C(FILE,0,1) : Rem seek end of file 
  5.    A$="Make did this!"
  6.    For A=1 To 100
  7.       B$=Str$(A)+"."+A$
  8.       W= Extension_17_01F8(FILE,Varptr(B$),Len(B$)) : Rem Write text into file 
  9.    Next 
  10.     Extension_17_01D4(FILE) : Rem And finally close file (Not needed if compiled)
  11. End If